home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
DFC096.ZIP
/
DFC.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-08-06
|
28KB
|
1,236 lines
object Form1: TForm1
Left = 193
Top = 107
Width = 600
Height = 564
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Defractor 0.96�'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poScreenCenter
OnActivate = DefractorOnActivate
OnClick = DefractorOnActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 6
Top = 3
Width = 84
Height = 18
Caption = 'Oscillator 1'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label2: TLabel
Left = 501
Top = 3
Width = 84
Height = 18
Caption = 'Oscillator 2'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label3: TLabel
Left = 6
Top = 156
Width = 53
Height = 13
Caption = 'Frequency:'
end
object Label4: TLabel
Left = 318
Top = 156
Width = 53
Height = 13
Caption = 'Frequency:'
end
object Osc1TextInfo: TLabel
Left = 207
Top = 147
Width = 32
Height = 16
Alignment = taRightJustify
Caption = 'None'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Osc2TextInfo: TLabel
Left = 555
Top = 147
Width = 32
Height = 16
Alignment = taRightJustify
Caption = 'None'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label5: TLabel
Left = 261
Top = 174
Width = 16
Height = 16
Caption = 'Hz'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label6: TLabel
Left = 570
Top = 174
Width = 16
Height = 16
Caption = 'Hz'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object O1AmpText: TLabel
Left = 182
Top = 6
Width = 53
Height = 13
Alignment = taRightJustify
Caption = 'Amp: 1.00x'
end
object O2AmpText: TLabel
Left = 354
Top = 6
Width = 53
Height = 13
Caption = 'Amp: 1.00x'
end
object Label18: TLabel
Left = 261
Top = 24
Width = 11
Height = 13
Caption = '0x'
end
object Label19: TLabel
Left = 261
Top = 129
Width = 17
Height = 13
Caption = '10x'
end
object Label21: TLabel
Left = 315
Top = 129
Width = 17
Height = 13
Caption = '10x'
end
object Label22: TLabel
Left = 321
Top = 24
Width = 11
Height = 13
Caption = '0x'
end
object Label23: TLabel
Left = 204
Top = 216
Width = 99
Height = 16
Caption = 'Sample Preview'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Osc1FreqSB: TScrollBar
Left = 6
Top = 174
Width = 190
Height = 16
Hint = 'Oscillator 1 Frequency '
LargeChange = 10
Max = 32000
Min = 1
ParentShowHint = False
Position = 220
ShowHint = True
TabOrder = 0
OnChange = Osc1FreqSBChange
end
object Osc1EBFreq: TEdit
Left = 201
Top = 171
Width = 55
Height = 21
Hint = 'Oscillator 1 Frequency'
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = '220.0'
OnChange = Osc1EBFreqChange
end
object Osc2FreqSB: TScrollBar
Left = 318
Top = 174
Width = 187
Height = 16
Hint = 'Oscillator 2 Frequency'
LargeChange = 10
Max = 32000
Min = 1
ParentShowHint = False
Position = 110
ShowHint = True
TabOrder = 2
OnChange = Osc2FreqSBChange
end
object Osc2EBFreq: TEdit
Left = 510
Top = 171
Width = 55
Height = 21
Hint = 'Oscillator 2 Frequency'
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = '110.0'
OnChange = Osc2EBFreqChange
end
object Panel1: TPanel
Left = 6
Top = 195
Width = 106
Height = 37
TabOrder = 4
object Osc1Options: TButton
Left = 6
Top = 6
Width = 94
Height = 25
Hint = 'More settings for oscillator 1'
Caption = 'More Settings...'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Osc1OptionsClick
end
end
object Panel2: TPanel
Left = 480
Top = 195
Width = 106
Height = 37
TabOrder = 5
object Osc2Options: TButton
Left = 6
Top = 6
Width = 94
Height = 25
Hint = 'More settings for Oscillator 2'
Caption = 'More Settings...'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Osc2OptionsClick
end
end
object FilterGroup: TGroupBox
Left = 6
Top = 321
Width = 580
Height = 94
Caption = ' Filters '
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 6
object Label10: TLabel
Left = 111
Top = 18
Width = 33
Height = 13
Caption = 'Power:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 111
Top = 42
Width = 33
Height = 13
Caption = 'Power:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 336
Top = 42
Width = 50
Height = 13
Caption = 'Threshold:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 111
Top = 66
Width = 28
Height = 13
Caption = 'Ratio:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SText: TLabel
Left = 450
Top = 66
Width = 39
Height = 13
Caption = '0.00700'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SmText: TLabel
Left = 531
Top = 18
Width = 27
Height = 13
Caption = '2.100'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SmoCBox: TCheckBox
Left = 6
Top = 18
Width = 88
Height = 17
Hint = 'Enable/Disable Smoothing Filter'
Caption = 'Smoothing:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = SmoCBoxClick
end
object SmoPower: TScrollBar
Left = 150
Top = 18
Width = 376
Height = 14
Hint = 'Smoothing Power'
LargeChange = 10
Max = 10000
Min = 1
ParentShowHint = False
Position = 100
ShowHint = True
TabOrder = 1
OnChange = SmoPowerChange
end
object PPCBox: TCheckBox
Left = 6
Top = 42
Width = 100
Height = 17
Hint = 'Enable/Disable Pinch/Punch Filter'
Caption = 'Pinch/Punch:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = PPCBoxClick
end
object PPPowSB: TScrollBar
Left = 150
Top = 42
Width = 172
Height = 14
Hint = 'Pinch/Punch Power'
LargeChange = 10
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnChange = PPPowSBChange
end
object ScrollBar1: TScrollBar
Left = 390
Top = 42
Width = 181
Height = 14
Hint = 'Pinch/Punch Threshold'
LargeChange = 10
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnChange = ScrollBar1Change
end
object CheckBox1: TCheckBox
Left = 6
Top = 66
Width = 100
Height = 17
Hint = 'Enable/Disable Sliding'
Caption = 'Sliding:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = CheckBox1Click
end
object SliRatio: TScrollBar
Left = 150
Top = 66
Width = 295
Height = 14
Hint = 'Slide Ratio (Hz/sample)'
LargeChange = 10
Max = 10000
Min = 1
ParentShowHint = False
Position = 100
ShowHint = True
TabOrder = 6
OnChange = SliRatioChange
end
object SliMode: TCheckBox
Left = 495
Top = 66
Width = 76
Height = 17
Hint = 'Enable/Disable (Up/Down) Slide Direction'
Caption = 'Up/Down'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = SliModeClick
end
end
object Advanced: TGroupBox
Left = 6
Top = 417
Width = 580
Height = 94
Caption = ' Advanced '
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 7
object Label11: TLabel
Left = 6
Top = 18
Width = 62
Height = 13
Caption = 'OverDrive:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 6
Top = 42
Width = 64
Height = 13
Caption = 'Attenuator:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 222
Top = 69
Width = 103
Height = 13
Caption = 'Internal Multiplier:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 414
Top = 69
Width = 90
Height = 13
Caption = 'Division Factor:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object OText: TLabel
Left = 543
Top = 18
Width = 21
Height = 13
Caption = '1.00'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object AText: TLabel
Left = 543
Top = 42
Width = 27
Height = 13
Caption = '1.000'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object OverDriveSB: TScrollBar
Left = 87
Top = 18
Width = 451
Height = 14
Hint = 'OverDrive'
LargeChange = 10
Max = 1000
Min = 1
ParentShowHint = False
Position = 1
ShowHint = True
TabOrder = 0
OnChange = OverDriveSBChange
end
object AttenuateSB: TScrollBar
Left = 87
Top = 42
Width = 451
Height = 14
Hint = 'Attenuation'
LargeChange = 10
Max = 1000
Min = 1
ParentShowHint = False
Position = 1
ShowHint = True
TabOrder = 1
OnChange = AttenuateSBChange
end
object AAutoSync: TCheckBox
Left = 6
Top = 69
Width = 202
Height = 17
Hint = 'Enable/Disable Synchronization'
Caption = 'Amplitude/Phase Synchronizer'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 2
OnClick = AAutoSyncClick
end
object IntMul: TEdit
Left = 327
Top = 66
Width = 64
Height = 21
Hint = 'Internal Multiplier Value'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = '2.2'
OnChange = IntMulChange
end
object DivFact: TEdit
Left = 510
Top = 66
Width = 64
Height = 21
Hint = 'Division Factor Value'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
Text = '1.1'
OnChange = DivFactChange
end
end
object Panel3: TPanel
Left = 6
Top = 24
Width = 232
Height = 118
TabOrder = 8
object PaintBox1: TPaintBox
Left = 6
Top = 6
Width = 220
Height = 106
Color = clWhite
ParentColor = False
OnPaint = PaintBox1Paint
end
end
object Panel4: TPanel
Left = 354
Top = 24
Width = 232
Height = 118
TabOrder = 9
object PaintBox2: TPaintBox
Left = 6
Top = 6
Width = 220
Height = 106
Color = clWhite
ParentColor = False
OnPaint = PaintBox2Paint
end
end
object EnveBox: TGroupBox
Left = 6
Top = 234
Width = 580
Height = 85
Caption = ' Envelope Generators '
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 10
object Label7: TLabel
Left = 12
Top = 42
Width = 34
Height = 13
Caption = 'Attack:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object O1AText: TLabel
Left = 231
Top = 42
Width = 58
Height = 13
Caption = '0.000 sec'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 12
Top = 60
Width = 34
Height = 13
Caption = 'Decay:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object O1DText: TLabel
Left = 231
Top = 60
Width = 58
Height = 13
Caption = '0.000 sec'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 300
Top = 60
Width = 34
Height = 13
Caption = 'Decay:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object O2DText: TLabel
Left = 519
Top = 60
Width = 55
Height = 13
Caption = '0.000 sec'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object O2AText: TLabel
Left = 519
Top = 42
Width = 55
Height = 13
Caption = '0.000 sec'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 300
Top = 42
Width = 34
Height = 13
Caption = 'Attack:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object O1EnvCBox: TCheckBox
Left = 9
Top = 21
Width = 157
Height = 17
Hint = 'Enable/Disable Enveloping'
Caption = 'Enveloping Oscillator 1'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = O1EnvCBoxClick
end
object O2EnvCBox: TCheckBox
Left = 300
Top = 21
Width = 157
Height = 17
Hint = 'Enable/Disable Enveloping'
Caption = 'Enveloping Oscillator 2'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = O2EnvCBoxClick
end
object O1AttackSB: TScrollBar
Left = 54
Top = 42
Width = 172
Height = 13
Hint = 'Attack Time'
LargeChange = 10
Max = 15000
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = O1AttackSBChange
end
object O1DecaySB: TScrollBar
Left = 54
Top = 60
Width = 172
Height = 13
Hint = 'Decay Time'
LargeChange = 10
Max = 30000
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnChange = O1DecaySBChange
end
object O2DecaySB: TScrollBar
Left = 342
Top = 60
Width = 172
Height = 13
Hint = 'Decay Time'
LargeChange = 10
Max = 30000
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnChange = O2DecaySBChange
end
object O2AttackSB: TScrollBar
Left = 342
Top = 42
Width = 172
Height = 13
Hint = 'Attack Time'
LargeChange = 10
Max = 15000
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = O2AttackSBChange
end
end
object O1AmplSB: TScrollBar
Left = 243
Top = 24
Width = 13
Height = 118
Hint = 'Oscillator 1 Amplification'
Kind = sbVertical
LargeChange = 10
Max = 1000
ParentShowHint = False
Position = 100
ShowHint = True
TabOrder = 11
OnChange = O1AmplSBChange
end
object O2AmplSB: TScrollBar
Left = 336
Top = 24
Width = 13
Height = 118
Hint = 'Oscillator 2 Amplification'
Kind = sbVertical
LargeChange = 10
Max = 1000
ParentShowHint = False
Position = 100
ShowHint = True
TabOrder = 12
OnChange = O2AmplSBChange
end
object MediaPlayer1: TMediaPlayer
Left = 306
Top = 213
Width = 29
Height = 20
Hint = 'Preview current instrument'
ColoredButtons = [btPause, btNext, btPrev, btStep, btBack, btRecord, btEject]
VisibleButtons = [btPlay]
AutoEnable = False
AutoRewind = False
DeviceType = dtWaveAudio
ParentShowHint = False
ShowHint = True
TabOrder = 13
OnClick = MediaPlayer1Click
end
object Copy1to2: TButton
Left = 273
Top = 51
Width = 49
Height = 19
Hint = 'Copy Oscillator 1 to Oscillator 2'
Caption = '>>>'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 14
OnClick = Copy1to2Click
end
object Copy2to1: TButton
Left = 273
Top = 72
Width = 49
Height = 19
Hint = 'Copy Oscillator 2 to Oscillator 1'
Caption = '<<<'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 15
OnClick = Copy2to1Click
end
object SwapOscil: TButton
Left = 273
Top = 93
Width = 49
Height = 19
Hint = 'Swap oscillator settings'
Caption = '<-->'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 16
OnClick = SwapOscilClick
end
object MainMenu1: TMainMenu
Left = 447
Top = 201
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object ResetSynth1: TMenuItem
Caption = '&Reset Synth'
ShortCut = 0
OnClick = ResetSynth1Click
end
object Open1: TMenuItem
Caption = '&Open Instrument...'
ShortCut = 0
OnClick = Open1Click
end
object SaveAs1: TMenuItem
Caption = '&Save Instrument...'
ShortCut = 0
OnClick = SaveAs1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Save1: TMenuItem
Caption = 'Save &As Sample...'
ShortCut = 0
OnClick = Save1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object InstrumentSampleSettings1: TMenuItem
Caption = '&Instrument/Sample Settings...'
ShortCut = 0
OnClick = InstrumentSampleSettings1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit Defractor'
ShortCut = 0
OnClick = Exit1Click
end
end
object Oscillator1: TMenuItem
Caption = 'Oscillator &1'
ShortCut = 0
object Sine1: TMenuItem
Caption = 'Sine'
RadioItem = True
ShortCut = 0
OnClick = Sine1Click
end
object Square1: TMenuItem
Caption = 'Square'
RadioItem = True
ShortCut = 0
OnClick = Square1Click
end
object SawTooth1: TMenuItem
Caption = 'Saw Tooth'
RadioItem = True
ShortCut = 0
OnClick = SawTooth1Click
end
object Triangular1: TMenuItem
Caption = 'Triangular'
RadioItem = True
ShortCut = 0
OnClick = Triangular1Click
end
object ExponentialTooth1: TMenuItem
Caption = 'Exponential Tooth'
RadioItem = True
ShortCut = 0
OnClick = ExponentialTooth1Click
end
object LogarithmicTooth1: TMenuItem
Caption = 'Logarithmic Tooth'
RadioItem = True
ShortCut = 0
OnClick = LogarithmicTooth1Click
end
object SquareDutyCycle1: TMenuItem
Caption = 'Square + DutyCycle'
RadioItem = True
ShortCut = 0
OnClick = SquareDutyCycle1Click
end
object Pulse1: TMenuItem
Caption = 'Pulse'
RadioItem = True
ShortCut = 0
OnClick = Pulse1Click
end
object ParabolicTooth1: TMenuItem
Caption = 'Parabolic Tooth'
RadioItem = True
ShortCut = 0
OnClick = ParabolicTooth1Click
end
object Circular1: TMenuItem
Caption = 'Circular'
RadioItem = True
ShortCut = 0
OnClick = Circular1Click
end
object RampTooth1: TMenuItem
Caption = 'Ramp Tooth'
RadioItem = True
ShortCut = 0
OnClick = RampTooth1Click
end
object Noise1: TMenuItem
Caption = 'Noise'
ShortCut = 0
OnClick = Noise1Click
end
object None1: TMenuItem
Caption = 'None'
ShortCut = 0
OnClick = None1Click
end
object Custom: TMenuItem
Caption = 'Custom...'
RadioItem = True
ShortCut = 0
OnClick = CustomClick
end
end
object Oscillator2: TMenuItem
Caption = 'Oscillator &2'
ShortCut = 0
object Sine2: TMenuItem
Caption = 'Sine'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Sine2Click
end
object Square2: TMenuItem
Caption = 'Square'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Square2Click
end
object SawTooth2: TMenuItem
Caption = 'Saw Tooth'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = SawTooth2Click
end
object Triangular2: TMenuItem
Caption = 'Triangular'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Triangular2Click
end
object ExponentialTooth2: TMenuItem
Caption = 'Exponential Tooth'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = ExponentialTooth2Click
end
object LogarithmicTooth2: TMenuItem
Caption = 'Logarithmic Tooth'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = LogarithmicTooth2Click
end
object SquareDutyCycle2: TMenuItem
Caption = 'Square + DutyCycle'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = SquareDutyCycle2Click
end
object Pulse2: TMenuItem
Caption = 'Pulse'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Pulse2Click
end
object ParabolicTooth2: TMenuItem
Caption = 'Parabolic Tooth'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = ParabolicTooth2Click
end
object Circular2: TMenuItem
Caption = 'Circular'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Circular2Click
end
object RampTooth2: TMenuItem
Caption = 'Ramp Tooth'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = RampTooth2Click
end
object Noise2: TMenuItem
Caption = 'Noise'
GroupIndex = 1
ShortCut = 0
OnClick = Noise2Click
end
object None2: TMenuItem
Caption = 'None'
GroupIndex = 1
ShortCut = 0
OnClick = None2Click
end
object Custom1: TMenuItem
Caption = 'Custom...'
GroupIndex = 1
RadioItem = True
ShortCut = 0
OnClick = Custom2Click
end
end
object AboutM: TMenuItem
Caption = '&About'
ShortCut = 0
object AboutDefractor1: TMenuItem
Caption = 'About &Defractor...'
ShortCut = 0
OnClick = AboutDefractor1Click
end
object Contributors: TMenuItem
Caption = '&Contributors/Beta Testers...'
ShortCut = 0
OnClick = ContributorsClick
end
end
end
object InstrumentOpen: TOpenDialog
FileEditStyle = fsEdit
Filter =
'Defractor 1.0 Instrument (*.DFC)|*.DFC|Defractor Enhaced Instrum' +
'ent (*.DF2)|*.DF2'
Left = 147
Top = 198
end
object InstrumentSave: TSaveDialog
FileEditStyle = fsEdit
Filter =
'Defractor 1.0 Instrument (*.DFC)|*.DFC|Defractor Enhaced Instrum' +
'ent (*.DF2)|*.DF2'
Left = 387
Top = 201
end
object RAWSave: TSaveDialog
FileEditStyle = fsEdit
Filter =
'16 Bit Integer RAW Format (*.RAW)|*.RAW|FastTracker 2.0x Instrum' +
'ent (*.XI)|*.XI|Microsoft Wave (*.WAV)|*.WAV'
Left = 417
Top = 201
end
object CustomOpenDialog: TOpenDialog
FileEditStyle = fsEdit
Filter = '16 Bit Signed RAW Data|*.RAW|Defractor RAW Waveform|*.RAD'
Left = 117
Top = 198
end
end